﻿''' <summary>
''' 'TD6201 文件数据结构类
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class StructureUpAir
    Implements ICloneable

    ''' <summary>
    ''' 站台编号 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_StationID As String
    ''' <summary>
    ''' 纬度(Double)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_Latitude As Double
    ''' <summary>
    ''' 纬度标识 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_LatitudeCode As String
    ''' <summary>
    ''' 经度(Double)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_Longitude As Double
    ''' <summary>
    ''' 经度标识 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_LongitudeCode As String



    ''' <summary>
    ''' 时间 (DateTime)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_DateTime As DateTime
    ''' <summary>
    ''' 层数 (Integer)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_TierCount As Integer = 79
   

    Private m_ArrStructureUpAirTierData(-1) As StructureUpAirTierData

    ''' <summary>
    ''' 站台编号 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property StationID() As String
        Get
            Return Me.m_StationID
        End Get
        Set(ByVal value As String)
            Me.m_StationID = value
        End Set
    End Property
    ''' <summary>
    ''' 纬度(Double)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Latitude() As Double
        Get
            Return Me.m_Latitude
        End Get
        Set(ByVal value As Double)
            Me.m_Latitude = value
        End Set
    End Property
    ''' <summary>
    ''' 纬度标识 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property LatitudeCode() As String
        Get
            Return Me.m_LatitudeCode
        End Get
        Set(ByVal value As String)
            Me.m_LatitudeCode = value
        End Set
    End Property
    ''' <summary>
    '''  经度(Double)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Longitude() As Double
        Get
            Return Me.m_Longitude
        End Get
        Set(ByVal value As Double)
            Me.m_Longitude = value
        End Set
    End Property
    ''' <summary>
    ''' 经度标识 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property LongitudeCode() As String
        Get
            Return Me.m_LongitudeCode
        End Get
        Set(ByVal value As String)
            Me.m_LongitudeCode = value
        End Set
    End Property
    ''' <summary>
    ''' 时间 (DateTime)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property MyDateTime() As DateTime
        Get
            Return Me.m_DateTime
        End Get
        Set(ByVal value As DateTime)
            Me.m_DateTime = value
        End Set
    End Property
    ''' <summary>
    ''' 层数 (Integer)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property TierCount() As Integer
        Get
            Return Me.m_TierCount
        End Get
        Set(ByVal value As Integer)
            Me.m_TierCount = value
        End Set
    End Property
    ''' <summary>
    ''' 层数据数组类
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property ArrStructureUpAirTierData() As StructureUpAirTierData()
        Get
            Return Me.m_ArrStructureUpAirTierData
        End Get
        Set(ByVal value As StructureUpAirTierData())
            Me.m_ArrStructureUpAirTierData = value
        End Set
    End Property
    
    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New StructureUpAir
        obj.m_DateTime = Me.m_DateTime
        obj.m_TierCount = Me.m_TierCount

        ReDim obj.m_ArrStructureUpAirTierData(Me.m_ArrStructureUpAirTierData.Length - 1)
        For i As Integer = 0 To Me.m_ArrStructureUpAirTierData.Length - 1
            obj.m_ArrStructureUpAirTierData(i) = Me.m_ArrStructureUpAirTierData(i)
        Next
        Return obj
      
    End Function

End Class
